Dim A(11,15)
 
Debug "Affiche le tableau A"
For i= 0 To 10
  For j = 0 To 14
    Read A(i,j)
    Debug A(i,j) ; Affiche le tableau A
  Next j 
Next i   
 
;Enregistre le tableau dans un fichier
If CreateFile(0, "map.txt")
  WriteData(0, A(), 11*15 * SizeOf(integer))
  CloseFile(0)
EndIf
 
DataSection
Donnees:
Data.i 1,3,13,3,7,0,6,3,13,3,10
Data.i 2,0,8,0,0,0,0,0,8,0,2
Data.i 2,0,0,0,9,0,9,0,0,0,2
Data.i 2,0,6,3,11,0,5,13,7,0,2
Data.i 2,0,0,0,0,0,0,2,0,0,2
Data.i 2,0,6,7,0,12,0,5,7,0,2
Data.i 2,0,0,0,0,0,0,0,0,0,2
Data.i 4,3,7,0,6,3,7,0,6,3,15
Data.i 2,0,0,0,0,0,0,0,0,0,2
Data.i 2,0,6,10,0,12,0,1,7,0,2
Data.i 2,0,0,2,0,0,0,2,0,0,2
Data.i 2,0,6,14,10,0,1,14,7,0,2
Data.i 2,0,0,0,5,3,11,0,0,0,2
Data.i 2,0,9,0,0,0,0,0,9,0,2
Data.i 5,3,14,3,7,0,6,3,14,3,11
EndDataSection

; IDE Options = PureBasic 4.40 (Windows - x64)
; CursorPosition = 12
; EnableXP
; DisableDebugger